home *** CD-ROM | disk | FTP | other *** search
/ ftp.mactech.com 2010 / ftp.mactech.com.tar / ftp.mactech.com / machack / Hacks95 / Aaron 1.0b3.sit / Aaron 1.0b3 / Aaron Source / CDEF and Patches / NewFolder.c < prev    next >
Text File  |  1995-06-24  |  444b  |  18 lines
  1. /*    Aaron © 1995 Gregory D. Landweber, ALL RIGHTS RESERVED    */
  2.     
  3. pascal long main ( short varCode, ControlHandle theControl, short msgCode, long msgParam )
  4. {
  5.     Handle    h;
  6.     long    result;
  7.     
  8.     h = GetResource ( 'CDEF', 0 );
  9.     if ( h && *h ) {
  10.         HLock ( h );
  11.         result = CallControlDefProc((ControlDefUPP)StripAddress(*h),
  12.                                     varCode + 16, theControl, msgCode, msgParam );
  13.         HUnlock ( h );
  14.         return result;
  15.     }
  16.     else
  17.         return 0;
  18. }